home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 05 (1982-01)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 05 (1982-01)(Softdisk)(Side B).do / KIRBY.HELLO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  5KB  |  113 lines
  1. 10  REM       "UNIVERSAL" GREETING PROGRAM 
  2. 20  REM 
  3. 30  REM    APPLE LOGO
  4. 40  REM 
  5. 50  HOME 
  6. 60  GR 
  7. 70  COLOR= 12: VLIN 1,4 AT 24: VLIN 2,7 AT 23: VLIN 3,8 AT 22: VLIN 4,9 AT 21: VLIN 6,10 AT 20
  8. 80  HLIN 13,16 AT 10: HLIN 24,27 AT 10: HLIN 12,18 AT 11: HLIN 22,28 AT 11: HLIN 11,29 AT 12: HLIN 11,29 AT 13
  9. 90  COLOR= 13: FOR I = 14 TO 17: HLIN 10,30 AT I: NEXT I
  10. 100  FOR I = 18 TO 25
  11. 110  IF I = 19  THEN  COLOR= 9
  12. 120  IF I = 24  THEN  COLOR= 1
  13. 130  HLIN 9,31 AT I: NEXT I
  14. 140  FOR I = 26 TO 30
  15. 150  IF I = 29  THEN  COLOR= 3
  16. 160  HLIN 10,30 AT I: NEXT I
  17. 170  FOR I = 31 TO 33: HLIN 11,29 AT I: NEXT I
  18. 180  COLOR= 2: FOR I = 34 TO 36: HLIN 12,28 AT I: NEXT I
  19. 190  HLIN 13,27 AT 37: HLIN 14,19 AT 38: HLIN 21,26 AT 38: HLIN 15,18 AT 39: HLIN 22,25 AT 39
  20. 200  FOR B = 1 TO 500: NEXT B
  21. 210  FOR C = 1 TO 20:K =  PEEK( -16336): NEXT C
  22. 220  COLOR= 0: HLIN 28,30 AT 14: HLIN 28,30 AT 15: HLIN 27,30 AT 16: HLIN 27,30 AT 17: HLIN 26,31 AT 18: HLIN 26,31 AT 19: HLIN 26,31 AT 20: HLIN 25,31 AT 21: HLIN 25,31 AT 22: HLIN 25,31 AT 23: HLIN 25,31 AT 24: HLIN 26,31 AT 25
  23. 230  HLIN 26,30 AT 26: HLIN 26,30 AT 27: HLIN 27,30 AT 28: HLIN 27,30 AT 29: HLIN 29,30 AT 30
  24. 240  REM   -- DOS 3.3 HELLO
  25. 250  REM  --POKE LANGUAGE CARD FINDER
  26. 260  POKE 768,0: POKE 769,173: POKE 770,0: POKE 771,224: POKE 772,72: POKE 773,173: POKE 774,129: POKE 775,192: POKE 776,104:
  27. 270  POKE 777,72: POKE 778,205: POKE 779,0: POKE 780,224: POKE 781,208: POKE 782,35: POKE 783,173: POKE 784,131: POKE 785,192:
  28. 280  POKE 786,173: POKE 787,131: POKE 788,192: POKE 789,169: POKE 790,165: POKE 791,141: POKE 792,0: POKE 793,208: POKE 794,205:
  29. 290  POKE 795,0: POKE 796,208: POKE 797,208: POKE 798,19: POKE 799,74: POKE 800,141: POKE 801,0: POKE 802,208: POKE 803,205:
  30. 300  POKE 804,0: POKE 805,208: POKE 806,208: POKE 807,10: POKE 808,173: POKE 809,129: POKE 810,192: POKE 811,173: POKE 812,129:
  31. 310  POKE 813,192: POKE 814,169: POKE 815,1: POKE 816,208: POKE 817,2: POKE 818,169: POKE 819,0: POKE 820,141: POKE 821,0:
  32. 320  POKE 822,3: POKE 823,104: POKE 824,205: POKE 825,0: POKE 826,224: POKE 827,240: POKE 828,3: POKE 829,173: POKE 830,128:
  33. 330  POKE 831,192: POKE 832,96:
  34. 340  CALL 769
  35. 350  IF  PEEK(768) < >1  THEN 440
  36. 360  REM  
  37. 370  REM --IF THERE, LOAD INTG AND PA#1
  38. 380  REM  
  39. 390  PRINT "(LOADING INTEGER INTO LANGUAGE CARD)"
  40. 400  PRINT "<CTRL-D>BLOAD INTBASIC,A$D000"
  41. 410  REM  --WRITE PROTECT THE CARD
  42. 420 A =  PEEK( -16254): REM   $C082
  43. 430  GOTO 500
  44. 440  REM 
  45. 450  REM --NO CARD OR CAN'T RELOAD
  46. 460  REM 
  47. 470  IF  PEEK(768) = 0  THEN  GOTO 500
  48. 480  PRINT : PRINT "...LANGUAGE CARD CANNOT BE RELOADED": PRINT "   UNTIL THE SYSTEM IS REBOOTED..."
  49. 490  END 
  50. 500  REM    FREECAT
  51. 510  REM 
  52. 520  IF  PEEK(977) + PEEK(978) -16 * INT( PEEK(978)/16) < >191 +13  THEN  PRINT : PRINT  CHR$(7)"INCORRECT DOS POINTERS": PRINT "PLEASE REBOOT AND RERUN FREECAT": END 
  53. 530 AD =  PEEK(978):A1 = 256 *AD +6579
  54. 540  DIM L(24): FOR K = 1 TO 24: READ L(K): NEXT K
  55. 550  FOR I = A1 TO A1 +69: READ B: POKE (I),B: NEXT 
  56. 560  POKE A1 +11,AD +22: POKE A1 +46,AD +24: POKE A1 +55,AD +17
  57. 570 T = 0: FOR I = A1 TO A1 +69:T = T + PEEK(I): NEXT I: IF T -3 *AD < >10412  THEN  PRINT : PRINT  CHR$(7)"DATA STATEMENT ERROR (LINES 230-240)": END 
  58. 580  POKE A1 -2287,179: POKE A1 -2286,AD +25
  59. 590  REM 
  60. 600  REM    MENU
  61. 610  REM 
  62. 620  NOTRACE : NORMAL : TEXT 
  63. 630  CLEAR 
  64. 640 D$ =  CHR$(4): REM CHR$(4) IS CTRL-D
  65. 650  PRINT D$;"NOMON C,I,O"
  66. 660  HOME 
  67. 670  PRINT D$;"CATALOG"
  68. 680  DIM L(24)
  69. 690  FOR I = 1 TO 24
  70. 700  READ L(I)
  71. 710  NEXT I
  72. 720 SL = SL +1
  73. 730 X =  PEEK(L(SL)) -128
  74. 740  IF X < ASC("0")  OR X > ASC("2") GOTO 720
  75. 750  FOR I = SL TO 24
  76. 760 X =  PEEK(L(I)) -128
  77. 770  IF X < ASC("0")  OR X > ASC("2") GOTO 820
  78. 780  POKE L(I),160: POKE L(I) +2,173
  79. 790 LL = I -SL +193
  80. 800  POKE L(I) +1,LL
  81. 810  NEXT I
  82. 820  PRINT "RUN ?  LOCK=1 UNLOCK=2 DELETE=3 EXIT=4";
  83. 830 B$ = "RUN"
  84. 840  HTAB 6
  85. 850  GET K$
  86. 860  IF K$ = "4"  THEN  END 
  87. 870  IF K$ >"0"  AND K$ <"4" GOTO 900
  88. 880  IF K$ >"@"  AND K$ < CHR$(LL -127) GOTO 980
  89. 890  GOTO 850
  90. 900  IF K$ = "1"  THEN B$ = "LOCK"
  91. 910  IF K$ = "2"  THEN B$ = "UNLOCK"
  92. 920  IF K$ = "3"  THEN B$ = "DELETE"
  93. 930  VTAB I: HTAB 1: CALL  -868
  94. 940  PRINT " PRESS 'LETTER' YOU WISH TO ";
  95. 950  IF K$ = "3"  THEN  FLASH 
  96. 960  PRINT B$;: NORMAL : CALL  -198: REM BELL
  97. 970  GOTO 850
  98. 980 I = SL + ASC(K$) -65
  99. 990 X =  PEEK(L(I) -2)
  100. 1000  IF X = 194  AND B$ = "RUN"  THEN B$ = "BRUN"
  101. 1010  IF X = 212 GOTO 1080
  102. 1020 N$ = ""
  103. 1030  FOR J = 4 TO 33
  104. 1040 N$ = N$ + CHR$( PEEK(L(I) +J))
  105. 1050  NEXT J
  106. 1060  PRINT : PRINT D$;B$;N$
  107. 1070  GOTO 630
  108. 1080  HOME : VTAB 10: PRINT "THAT IS A TEXT FILE<CTRL-G>!<CTRL-G>!<CTRL-G>!"
  109. 1090  FOR PAUSE = 1 TO 1000: NEXT PAUSE
  110. 1100  GOTO 630
  111. 1110  DATA  1027,1155,1283,1411,1539,1667,1795,1923,1067,1195,1323,1451,1579,1707,1835,1963,1107,1235,1363,1491,1619,1747,1875,2003
  112. 1120  DATA 162,7,32,74,249,134,65,160,140,185,242,179,240,10,10,144,251,232,208,250,230,65,208,246,136,208,238,165,65,172,6,224,240,5
  113. 1130  DATA 32,27,229,48,3,32,36,237,160,243,185,249,181,32,237,253,200,208,247,76,47,174,0,160,198,210,197,197,160,211,197,195,212,207,210,211